OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = false
oG2antt.DrawGridLines = -1
oG2antt.BackColorLevelHeader = oG2antt.BackColor
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("C0")
		var_Column.ExpandColumns = "1,2"
		var_Column.DisplayExpandButton = true
	var_Columns.Add("C1")
	var_Columns.Add("C2")
	var_Columns.Add("C3")
	var_Column1 = var_Columns.Add("C4")
		var_Column1.ExpandColumns = "5,6"
		var_Column1.DisplayExpandButton = true
	var_Columns.Add("C5")
	var_Column2 = var_Columns.Add("C6")
		var_Column2.ExpandColumns = "6,7"
		var_Column2.DisplayExpandButton = true
	var_Columns.Add("C7")
oG2antt.EndUpdate()
oG2antt.Columns.Item("C4").Expanded = false

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,64)
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.Def(3,"<%=%1%>")
		var_Bar.Def(4,16)
		var_Bar.Def(44,"<%=%2%>")
		var_Bar.Def(45,18)
	var_Chart.ScrollTo(var_Chart.FirstVisibleDate,1)
oG2antt.Columns.Add("Task")
oG2antt.Columns.Add("ToolTip").Visible = false
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.CellValue(h,1,"bar <b>a")
	var_Items.AddBar(h,"Task",2000-12-29,2001-01-05)
	h = var_Items.AddItem("Item 2")
	var_Items.CellValue(h,1,"bar <b>b")
	var_Items.AddBar(h,"Task",2000-12-30,2001-01-06)
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,64)
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.Def(3,"<%=%C1%>")
		var_Bar.Def(4,18)
oG2antt.Columns.Add("Task")
oG2antt.Columns.Add("ToolTip").Visible = false
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.CellValue(h,1,"bar <b>a")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05)
	h = var_Items.AddItem("Item 2")
	var_Items.CellValue(h,1,"bar <b>b")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-06)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,64)
	var_Chart.Bars.Item("Task").Def(6,"<%=%C1%>")
oG2antt.Columns.Add("Task")
oG2antt.Columns.Add("ToolTip").Visible = false
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.CellValue(h,1,"This is a bit of text that's shown when the cursor hovers the bar on item 1.")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05)
	h = var_Items.AddItem("Item 2")
	var_Items.CellValue(h,1,"This is a bit of text that's shown when the cursor hovers the bar on item 2.")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-06)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Default")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05)
	var_Items.ItemBar(h,"",51,65536)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
	var_Chart.Bars.Item("Task").Def(51,65536)
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Default"),"Task",2001-01-02,2001-01-05)
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,0)
var_Bar = oG2antt.Chart.Bars.Add("Frame")
	var_Bar.Pattern = 1
	var_Bar.Color = RGB(0,255,0)
	var_Bar.Def(51,65536)
	var_Bar.Def(3,"<font ;6><%=%C0%>")
	var_Bar.Def(4,18)
	var_Bar.Height = 15
oG2antt.Columns.Add("Frames")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Default"),"Frame",2001-01-02,2001-01-07)
	h = var_Items.AddItem("Inside Color")
	var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
	var_Items.ItemBar(h,"",33,255)
	h = var_Items.AddItem("Border Color")
	var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
	var_Items.ItemBar(h,"",51,33023)
	h = var_Items.AddItem("Inside/Border Color")
	var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
	var_Items.ItemBar(h,"",33,16711680)
	var_Items.ItemBar(h,"",51,33023)
	h = var_Items.AddItem("Thick-Border")
	var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
	var_Items.ItemBar(h,"",42,4097)
	h = var_Items.AddItem("Thick-Border + Pattern")
	var_Items.AddBar(h,"Frame",2001-01-02,2001-01-07)
	var_Items.ItemBar(h,"",42,4098)
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.DrawGridLines = -1
oG2antt.Columns.Add("Members").Def(17,1)
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2006-09-20
	var_Chart.AllowLinkBars = false
	var_Chart.AllowCreateBar = 0
	var_Chart.AllowSelectObjects = 0
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,96)
	var_Chart.DrawGridLines = -1
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.OverlaidType = 4611 /*exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
		var_Bar.Height = 18
		var_Bar.Pattern = 1
		var_Bar.Color = RGB(0,128,255)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Member <b>1</b>")
	var_Items.AddBar(h,"Task",2006-09-21,2006-09-23,"T102","<font ;6><fgcolor FFFFFF>Task <b>102</b>")
	var_Items.ItemBar(h,"T102",28,true)
	h = var_Items.AddItem("Member <b>2</b>")
	h = var_Items.AddItem("Member <b>3</b>")
	h = var_Items.AddItem("Member <b>4</b>")
	var_Items.AddBar(h,"Task",2006-09-21,2006-09-23,"T103","<font ;6><fgcolor FFFFFF>Task <b>103</b>")
	var_Items.ItemBar(h,"T103",28,true)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 26
var_Chart = oG2antt.Chart
	var_Chart.NonworkingDays = 0
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
	var_Chart.Bars.Item("Task").Height = 22
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Border-Top")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"top[3,back=RGB(0,0,0)]")
	h = var_Items.AddItem("Border-Bottom")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"bottom[3,back=RGB(255,0,0)]")
	h = var_Items.AddItem("Border-Left")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"left[6,back=RGB(0,255,0)]")
	h = var_Items.AddItem("Border-Right")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"right[6,back=RGB(0,0,255)]")
	h = var_Items.AddItem("Border-All")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"top[3,back=RGB(0,0,0)],right[3,back=RGB(0,0,255)],bottom[3,back=RGB(255,0,0)],left[3,back=RGB(0,255,0)],client")
	h = var_Items.AddItem("Middle")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"none[(25%,25%,50%,50%),back=RGB(255,0,0)]")
	h = var_Items.AddItem("Horizontal")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"none[(0,50%-2,100%,4),back=RGB(255,0,0)]")
	h = var_Items.AddItem("Vertical")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"none[(50%-2,0,4,100%),back=RGB(255,0,0)]")
	h = var_Items.AddItem("Mixt")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"[[patterncolor=RGB(255,0,0)](none[(4,4,100%-8,100%-8),pattern=0x006,patterncolor=RGB(255,0,0),frame=RGB(255,0,0),framethick])]")
	h = var_Items.AddItem("Misc")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"bottom[50%,pattern=10,frame]")
	h = var_Items.AddItem("Complex")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)
	var_Items.ItemBar(h,"",53,"left[10%](top[90%,back=RGB(0,0,0)]),top[30%,back=RGB(254,217,102)],client[back=RGB(91,156,212)]")
oG2antt.EndUpdate()

OleObject oG2antt,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("")
	var_Column.Caption = ""
	var_Column.HTMLCaption = "Column"
var_Items = oG2antt.Items
	var_Items.CellToolTip(var_Items.AddItem("tooltip w/h different title"),0,"<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color.")
oG2antt.EndUpdate()

OleObject oG2antt,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("")
	var_Column.Caption = "This is the title"
	var_Column.HTMLCaption = "Column"
var_Items = oG2antt.Items
	var_Items.CellToolTip(var_Items.AddItem("tooltip w/h different title"),0,"This is bit of text that's shown when the user hovers the cell.")
oG2antt.EndUpdate()

OleObject oG2antt,var_Column,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
	var_Columns.Add("C1")
	var_Columns.Add("C2")
var_Items = oG2antt.Items
	h = var_Items.AddItem("tooltip w/h caption")
	var_Items.CellToolTip(h,0,"This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title.")
	var_Items.CellValue(h,1,"tooltip no caption")
	var_Items.CellToolTip(h,1,"This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title.")
var_Column = oG2antt.Columns.Item("C2")
	var_Column.HTMLCaption = var_Column.Caption
	var_Column.Caption = ""
oG2antt.EndUpdate()

/*begin event RClick() - Fired when right mouse button is clicked*/
/*
	Columns(c).ShowFilter("-1,-1,128,128")
	any i
	oG2antt = ole_1.Object
	i = oG2antt.ItemFromPoint(-1,-1,c,hit)
*/
/*end event RClick*/

OleObject oG2antt,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ShowFocusRect = false
var_Column = oG2antt.Columns.Add("Items ")
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Items = oG2antt.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oG2antt.EndUpdate()

/*begin event ColumnClick(oleobject  Column) - Fired after the user clicks on column's header.*/
/*
	Column.SortOrder = 1
	oG2antt = ole_1.Object
	oG2antt.SortOnClick = -1
	oG2antt.Columns.Item("Sort").SortOrder = 1
	oG2antt.SortOnClick = 1
*/
/*end event ColumnClick*/

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SortOnClick = 1
oG2antt.Columns.Add("Items")
oG2antt.Columns.Add("Sort").Visible = false
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item 1 (3)"),1,3)
	var_Items.CellValue(var_Items.AddItem("Item 2 (1)"),1,1)
	var_Items.CellValue(var_Items.AddItem("Item 3 (2)"),1,2)
oG2antt.EndUpdate()

/*begin event ColumnClick(oleobject  Column) - Fired after the user clicks on column's header.*/
/*
	Column.SortOrder = 1
	oG2antt = ole_1.Object
	oG2antt.Items.SortChildren(0,"Sort",true)
*/
/*end event ColumnClick*/

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SortOnClick = 1
oG2antt.Columns.Add("Items")
oG2antt.Columns.Add("Sort").Visible = false
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Item 1 (3)"),1,3)
	var_Items.CellValue(var_Items.AddItem("Item 2 (1)"),1,1)
	var_Items.CellValue(var_Items.AddItem("Item 3 (2)"),1,2)
oG2antt.EndUpdate()

/*begin event Event(long  EventID) - Notifies the application once the control fires an event.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( String(oG2antt.ExecuteTemplate("EventParam(-2)")) ))
*/
/*end event Event*/

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,48)
	var_Chart.AllowLinkBars = false
	var_Chart.Bars.Item("Task").OverlaidType = 257 /*exOverlaidBarsTransparent | exOverlaidBarsOffset*/
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Item 1")
	var_Items.EnableItem(h,false)
	var_Items.ItemData(h,-1)
	h = var_Items.AddItem("Item 2")
	var_Items.ItemData(h,0)
	var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B")
	var_Items.ItemBar(h,"B",28,true)
	var_Items.ItemData(var_Items.AddItem("Item 3"),0)
	h = var_Items.AddItem("Item 4")
	var_Items.EnableItem(h,false)
	var_Items.ItemData(h,-1)
oG2antt.EndUpdate()

OleObject oG2antt,var_Column,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSort = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Index").FormatColumn = "1 index ``"
	var_Columns.Add("Date").SortType = 2
	var_Column = var_Columns.Add("Time")
		var_Column.SortType = 4
		var_Column.FormatColumn = "time(value)"
var_Items = oG2antt.Items
	h = var_Items.AddItem(0)
	var_Items.CellValue(h,1,2001-01-01)
	var_Items.CellValue(h,2,DateTime(2001-01-01,10:00:00))
	h = var_Items.AddItem(0)
	var_Items.CellValue(h,1,2000-12-31)
	var_Items.CellValue(h,2,DateTime(2001-01-01,10:00:00))
	h = var_Items.AddItem(0)
	var_Items.CellValue(h,1,2001-01-01)
	var_Items.CellValue(h,2,DateTime(2001-01-01,06:00:00))
	h = var_Items.AddItem(0)
	var_Items.CellValue(h,1,2000-12-31)
	var_Items.CellValue(h,2,DateTime(2001-01-01,08:00:00))
	h = var_Items.AddItem(0)
	var_Items.CellValue(h,1,2001-01-01)
	var_Items.CellValue(h,2,DateTime(2001-01-01,08:00:00))
	h = var_Items.AddItem(0)
	var_Items.CellValue(h,1,2000-12-31)
	var_Items.CellValue(h,2,DateTime(2001-01-01,06:00:00))
oG2antt.Layout = "multiplesort=" + CHAR(34) + "C1:1 C2:1" + CHAR(34) + ""
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2008-01-01
	var_Chart.PaneWidth(false,0)
	var_Chart.LevelCount = 2
	var_Chart.ShowNonworkingUnits = false
	var_Chart.ShowNonworkingDates = false
	var_Chart.NonworkingDays = 128
	var_Chart.AddNonworkingDate(2008-01-07)
	var_Chart.AddNonworkingDate(2008-01-08)
	var_Chart.AddNonworkingDate(2008-01-09)
	var_Chart.AddNonworkingDate(2008-01-10)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.AllowSizing = false
	var_Column.Width = 36
var_Column1 = oG2antt.Columns.Add("Duration")
	var_Column1.Def(18,513)
	var_Column1.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,148)
	var_Chart.FirstVisibleDate = 2009-04-06
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 65536
	var_Chart.ResizeUnitScale = 1048576
oG2antt.Items.AllowCellValueToItemBar = true
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("T1"),"Task",DateTime(2009-04-06,02:30:00),DateTime(2009-04-06,12:35:00))
	var_Items.AddBar(var_Items.AddItem("T2"),"Task",DateTime(2009-04-06,09:00:00),DateTime(2009-04-06,10:10:00))
oG2antt.EndUpdate()

OleObject oG2antt,var_Bars,var_Chart,var_Column,var_Column1,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Tasks")
	var_Column.AllowSizing = false
	var_Column.Width = 36
var_Column1 = oG2antt.Columns.Add("Working")
	var_Column1.Def(18,258)
	var_Column1.FormatColumn = "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2009-04-06
	var_Chart.PaneWidth(false,148)
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 65536
	var_Chart.ResizeUnitScale = 1048576
	var_Chart.ResizeUnitCount = 15
	var_Chart.NonworkingHours = 15728767
	var_Chart.ShowNonworkingDates = false
	var_Chart.ShowNonworkingUnits = false
	var_Chart.ShowNonworkingHours = false
	var_Bars = var_Chart.Bars
		var_Bars.Add("Task:Split").Shortcut = "Task"
		var_Bars.Item("Task").Def(20,true)
	var_Chart.AllowLinkBars = false
	var_Chart.UnitWidth = 26
oG2antt.Items.AllowCellValueToItemBar = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("T1")
	var_Items.ItemNonworkingUnits(h,false,"(weekday(value) in (1,2,3,4,5) and (timeF(value)<" + CHAR(34) + "09:30" + CHAR(34) + "  or timeF(value)>=" + CHAR(34) + "17:30" + CHAR(34) + ")) or (weekday(value) in (0,6))")
	var_Items.AddBar(h,"Task",DateTime(2009-04-06,10:00:00),DateTime(2009-04-06,12:30:00))
	h = var_Items.AddItem("T2")
	var_Items.ItemNonworkingUnits(h,false,"(weekday(value) in (1,2,3,4,5) and (timeF(value)<" + CHAR(34) + "08:00" + CHAR(34) + "  or timeF(value)>=" + CHAR(34) + "16:00" + CHAR(34) + ")) or (weekday(value) in (0,6))")
	var_Items.AddBar(h,"Task",DateTime(2009-04-06,09:30:00),DateTime(2009-04-06,10:45:00))
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any duration,h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,64)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Original")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
	h = var_Items.AddItem("Moved")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
	duration = var_Items.ItemBar(h,"key",513)
	var_Items.AddBar(h,"Task",2001-01-05,2001-01-05,"key")
	var_Items.ItemBar(h,"key",513,duration)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,64)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Original")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
	h = var_Items.AddItem("Moved")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
	var_Items.ItemBar(h,"key",514,3)
oG2antt.EndUpdate()

OleObject oG2antt,var_Bars,var_Chart,var_Items
any h,workingCount

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,64)
	var_Bars = var_Chart.Bars
		var_Bars.Item("Task").Def(20,true)
		var_Bars.Add("Task:Split").Shortcut = "Task"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Original")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
	h = var_Items.AddItem("Moved")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
	workingCount = var_Items.ItemBar(h,"key",258)
	var_Items.AddBar(h,"Task",2001-01-05,2001-01-05,"key")
	var_Items.ItemBar(h,"key",258,workingCount)
oG2antt.EndUpdate()

OleObject oG2antt,var_Bars,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,64)
	var_Bars = var_Chart.Bars
		var_Bars.Item("Task").Def(20,true)
		var_Bars.Add("Task:Split").Shortcut = "Task"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Original")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
	h = var_Items.AddItem("Moved")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"key")
	var_Items.ItemBar(h,"key",514,3)
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.AntiAliasing = true
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = 1
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,40)
	var_Chart.FirstVisibleDate = 2005-06-09
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 1136 /*exHistogramNoGrouping | exHistogramAllItems*/
	var_Chart.HistogramHeight = 128
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
		var_Bar.HistogramType = 0
		var_Bar.HistogramItems = 8
		var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
	var_Chart.Level(1).Label = "<font ;3><%d%>"
	var_Chart.UnitWidth = 9
	var_Bar1 = var_Chart.Bars.Item("Summary")
		var_Bar1.HistogramPattern = 1024
		var_Bar1.HistogramColor = RGB(255,0,0)
		var_Bar1.HistogramType = 0
		var_Bar1.HistogramItems = 8
		var_Bar1.HistogramBorderSize = 1
var_Items = oG2antt.Items
	var_Items.LockedItemCount(0,1)
	h = var_Items.LockedItem(0,0)
	var_Items.ItemHeight(h,0)
	var_Items.AddBar(h,"Summary",2005-01-01,2005-12-31,"1")
	var_Items.ItemBar(h,"1",21,"(value mod 31) array (1,1,1,2,1,2.5,3,4,5,4,3,2,1,2,2,3,4.5,4,5,6,7,6,1,2,3,1,1,1,2,3,2,2)")
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-06-10,2005-07-16,"")
	var_Items.ItemBar(h,"",21,"weekday(value) in (0,6) ? 0.25 : 2")
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-06-18,2005-07-21,"")
	var_Items.ItemBar(h,"",21,"weekday(value) = 1 ? 2.5 : .5")
oG2antt.EndUpdate()

/*begin event AfterDrawPart(long  Part,long  hDC,long  X,long  Y,long  Width,long  Height) - Occurs right after drawing the part of the control.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "AfterDrawPart" ))
	MessageBox("Information",string( String(Part) ))
	MessageBox("Information",string( oG2antt.Items.CellCaption(oG2antt.DrawPartItem,0) ))
	MessageBox("Information",string( String(oG2antt.DrawPartKey) ))
*/
/*end event AfterDrawPart*/

/*begin event BeforeDrawPart(long  Part,long  hDC,long  X,long  Y,long  Width,long  Height,boolean  Cancel) - Occurs just before drawing a part of the control.*/
/*
	oG2antt = ole_1.Object
	Cancel = true
	MessageBox("Information",string( "BeforeDrawPart" ))
	MessageBox("Information",string( String(Part) ))
	MessageBox("Information",string( oG2antt.Items.CellCaption(oG2antt.DrawPartItem,0) ))
	MessageBox("Information",string( String(oG2antt.DrawPartKey) ))
*/
/*end event BeforeDrawPart*/

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
	var_Chart.LevelCount = 2
	var_Chart.Bars.Add("OwnerDraw")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Draw-Item-Bar-1"),"OwnerDraw",2001-01-02,2001-01-05,"K1")
	var_Items.AddBar(var_Items.AddItem("Draw-Item-Bar-2"),"OwnerDraw",2001-01-06,2001-01-09,"K1")
	var_Items.ItemBar(0,"<*>",257,true)
oG2antt.EndUpdate()

OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAChABP0IQAAYAQGKIaBoAKBQAGaAoDDYMQyQwAAxDOKsEwsACEIrjKCRShyCYZRrGUQyAKESRAGyTJBlKKodgOLYYSrFcgSIAsEhqGASRZGUBIJDEMI4AJPIwxNIDfyNGKWI6gOQKIoSCYlU7IED0fQNGxVF6XaYqYAIRDINQlVzXcQzPYEbRxCKLKppWqIfpuSIBgI=")
	var_Appearance.Add(1,"CP:2 -8 -1 0 0")
	var_Appearance.Add(3,"CP:2 0 -1 0 0")
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Red-Status-Outside")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
	var_Items.ItemBar(h,"K1",51,16777471)
	h = var_Items.AddItem("Blue-Status-Outside")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-06,"K1")
	var_Items.ItemBar(h,"K1",51,33488896)
	h = var_Items.AddItem("Red-Status-Inside")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
	var_Items.ItemBar(h,"K1",51,50331903)
	h = var_Items.AddItem("Blue-Status-Inside")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-06,"K1")
	var_Items.ItemBar(h,"K1",51,67043328)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Red-Left-Status-Inside")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
	var_Items.ItemBar(h,"K1",53,"left[6,back=RGB(255,0,0)]")
	h = var_Items.AddItem("Blue-Left-Status-Inside")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-06,"K1")
	var_Items.ItemBar(h,"K1",53,"left[6,back=RGB(0,0,255)]")
	h = var_Items.AddItem("Red-Right-Status-Inside")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
	var_Items.ItemBar(h,"K1",53,"right[6,back=RGB(255,0,0)]")
	h = var_Items.AddItem("Blue-Right-Status-Inside")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-06,"K1")
	var_Items.ItemBar(h,"K1",53,"right[6,back=RGB(0,0,255)]")
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 31
oG2antt.DrawGridLines = -1
oG2antt.GridLineColor = RGB(224,224,224)
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.Level(0).GridLineColor = oG2antt.GridLineColor
	var_Chart.Level(1).GridLineColor = oG2antt.GridLineColor
	var_Chart.ShowNonworkingDates = false
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
	var_Chart.Bars.Item("Task").Height = 21
	var_Chart.DrawGridLines = -1
var_Items = oG2antt.Items
	h = var_Items.AddItem("Normal")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
	h = var_Items.AddItem("Red-Frame-Inside")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
	var_Items.ItemBar(h,"K1",53,"[frame=RGB(255,0,0),framethick]")
	h = var_Items.AddItem("LR-Margins")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K1")
	var_Items.ItemBar(h,"K1",53,"left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]")
	h = var_Items.AddItem("LR-Margins (front)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-07,"K1")
	var_Items.ItemBar(h,"K1",53,"left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]")
	var_Items.ItemBar(h,"K1",54,2)
	h = var_Items.AddItem("LR-Margins (back)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-08,"K1")
	var_Items.ItemBar(h,"K1",53,"left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]")
	var_Items.ItemBar(h,"K1",54,3)
	h = var_Items.AddItem("TB-Margins")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-09,"K1")
	var_Items.ItemBar(h,"K1",53,"top[4,back=RGB(255,0,0)],bottom[4,back=RGB(0,255,0)]")
	h = var_Items.AddItem("TB-Margins")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-10,"K1")
	var_Items.ItemBar(h,"K1",53,"top[2,back=RGB(255,0,0)],bottom[2,back=RGB(0,255,0)]")
	var_Items.ItemBar(h,"K1",54,2)
	h = var_Items.AddItem("Caption(back)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-11,"K1")
	var_Items.ItemBar(h,"K1",53,"client(bottom[14,text=`<sha ;;0><font ;8>background`,align=0x11])")
	var_Items.ItemBar(h,"K1",54,2)
	h = var_Items.AddItem("Pattern-Outside")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-12,"K1")
	var_Items.ItemBar(h,"K1",53,"bottom[10%,pattern=7,frame]")
	var_Items.ItemBar(h,"K1",54,2)
	h = var_Items.AddItem("Pattern-Inside")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-13,"K1")
	var_Items.ItemBar(h,"K1",53,"bottom[7,pattern=3,frame]")
	h = var_Items.AddItem("Pattern-Inside-Caption")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-12,"K1")
	var_Items.ItemBar(h,"K1",53,"top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client(left[75%,text=`<fgcolor FFFFFF>75%`,align=0x11,pattern=0x001,frame=RGB(255,0,0)])")
	h = var_Items.AddItem("Complex(back)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-11,"K1")
	var_Items.ItemBar(h,"K1",53,"top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])")
	var_Items.ItemBar(h,"K1",54,3)
	h = var_Items.AddItem("Complex(inside)")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-12,"K1")
	var_Items.ItemBar(h,"K1",53,"top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])")
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,96)
	var_Chart.FirstVisibleDate = 2008-01-17
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 16777216
	var_Chart.Level(0).Alignment = 17 /*exHOutside | CenterAlignment*/
	var_Chart.Level(1).FormatLabel = "(0:=sec(dvalue)) mod 10 ? 0=: : '<c><font ;6>sec<br><b>' + 0=:"
oG2antt.Columns.Add("Tasks")
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",DateTime(2008-01-17,00:00:02),DateTime(2008-01-17,00:00:08))
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",DateTime(2008-01-17,00:00:05),DateTime(2008-01-17,00:00:15))

/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		MessageBox("Information",string( "Count of A: " ))
		MessageBox("Information",string( String(var_Items.ItemBar(var_Items.FocusItem,"A",256)) ))
		MessageBox("Information",string( "Count of B: " ))
		MessageBox("Information",string( String(var_Items.ItemBar(var_Items.FocusItem,"B",256)) ))
		MessageBox("Information",string( "Count of C: " ))
		MessageBox("Information",string( String(var_Items.ItemBar(var_Items.FocusItem,"C",256)) ))
*/
/*end event SelectionChanged*/

OleObject oG2antt,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,48)
	var_Chart.Bars.Item("Task").Def(4,18)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-04,"A","A")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-04,"B","B")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2001-01-02,2001-01-04,"C","C")
oG2antt.EndUpdate()

OleObject oG2antt,rs

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADODB.Recordset")
	rs.Open("Select * From foxcode.DBF","Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\",3,3)
oG2antt.DataSource = rs
oG2antt.Chart.PaneWidth(true,0)
oG2antt.EndUpdate()

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
	h = var_Items.AddItem("This is a bit of <b>HTML-formatted</b> text")
	var_Items.CellValueFormat(h,0,1)
	var_Items.AddItem(var_Items.CellCaption(h,0))

OleObject oG2antt,var_Chart,var_Column,var_Columns,var_ConditionalFormat,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Columns.Add("Tasks")
	var_Column = var_Columns.Add("Duration")
		var_Column.Def(18,513)
		var_Column.Editor.EditType = 4
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = 1
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2005-06-06
	var_Chart.PaneWidth(false,128)
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 >= 4")
	var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
	var_ConditionalFormat.Bold = true
	var_ConditionalFormat.ApplyToBars = "Task"
	var_ConditionalFormat.BarColor = RGB(255,0,0)
	var_ConditionalFormat.ForeColor = var_ConditionalFormat.BarColor
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-13,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-16,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-15,"")
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Column,var_Columns,var_ConditionalFormat,var_InsideZoomFormat,var_InsideZooms,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 129 /*exDisableSplitter | exResizeChart*/
var_Columns = oG2antt.Columns
	var_Columns.Add("Tasks")
	var_Column = var_Columns.Add("Start")
		var_Column.Def(18,1)
		var_Column.Visible = false
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = 1
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2005-05-31
	var_Chart.PaneWidth(false,0)
	var_Chart.AllowInsideZoom = true
	var_Chart.AllowResizeInsideZoom = false
	var_Chart.InsideZoomOnDblClick = false
	var_InsideZoomFormat = var_Chart.DefaultInsideZoomFormat
		var_InsideZoomFormat.PatternChart = 6
		var_InsideZoomFormat.PatternColorChart = RGB(255,0,0)
		var_InsideZoomFormat.ForeColor = var_InsideZoomFormat.PatternColorChart
	var_InsideZooms = var_Chart.InsideZooms
		var_InsideZooms.SplitBaseLevel = false
		var_InsideZooms.DefaultWidth = 18
		var_InsideZooms.Add(2005-06-10).AllowInsideFormat = false
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 <= #6/10/2005#")
	var_ConditionalFormat.ApplyToBars = "Task"
	var_ConditionalFormat.BarColor = RGB(255,0,0)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-14,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-15,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-16,"")
oG2antt.EndUpdate()

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/

OleObject oG2antt,rs,var_Chart,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 1994-08-03
	var_Chart.PaneWidth(false,256)
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 4096
	var_Chart.FirstWeekDay = 1
	var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Items.AllowCellValueToItemBar = true
oG2antt.Columns.Item(2).Def(18,1)
oG2antt.Columns.Item(4).Def(18,2)
var_ConditionalFormats = oG2antt.ConditionalFormats
	var_ConditionalFormat = var_ConditionalFormats.Add("1")
		var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
		var_ConditionalFormat.Bold = true
		var_ConditionalFormat.BackColor = RGB(250,250,250)
	var_ConditionalFormat1 = var_ConditionalFormats.Add("%1 = 5")
		var_ConditionalFormat1.ApplyToBars = "Task"
		var_ConditionalFormat1.BarColor = RGB(255,0,0)
		var_ConditionalFormat1.ForeColor = RGB(255,0,0)
		var_ConditionalFormat1.BarOverviewColor = RGB(255,0,0)
	var_ConditionalFormat2 = var_ConditionalFormats.Add("%1 = 3")
		var_ConditionalFormat2.ApplyToBars = "Task"
		var_ConditionalFormat2.BarColor = RGB(0,255,0)
		var_ConditionalFormat2.ForeColor = RGB(0,255,0)
		var_ConditionalFormat2.BarOverviewColor = RGB(0,255,0)
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Bar1,var_Bar2,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 32
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.UnitWidth = 32
	var_Chart.LevelCount = 2
	var_Chart.NonworkingDays = 0
	var_Chart.PaneWidth(false,64)
	var_Chart.FirstVisibleDate = 2005-06-20
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 112
	var_Chart.HistogramHeight = 64
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
		var_Bar.HistogramType = 1
		var_Bar.ShowHistogramValues = String(1)
	var_Bar1 = var_Chart.Bars.Copy("Task","TaskFixed")
		var_Bar1.HistogramType = 513 /*exHistOverAllocationFixed | exHistOverAllocation*/
		var_Bar1.ShowHistogramValues = String(1)
	var_Bar2 = var_Chart.Bars.Copy("Task","TaskMultiply")
		var_Bar2.HistogramType = 1025 /*exHistOverAllocationMultiply | exHistOverAllocation*/
		var_Bar2.ShowHistogramValues = String(1)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Allocation")
	var_Items.AddBar(h,"Task",2005-06-21,2005-06-23,"A","Effort/Length")
	var_Items.ItemBar(h,"A",21,0.25)
	var_Items.ItemBar(h,"A",5,18)
	var_Items.AddBar(h,"TaskFixed",2005-06-24,2005-06-26,"B","Effort")
	var_Items.ItemBar(h,"B",21,0.25)
	var_Items.ItemBar(h,"B",5,18)
	var_Items.AddBar(h,"TaskMultiply",2005-06-27,2005-06-29,"C","Effort*Length")
	var_Items.ItemBar(h,"C",21,0.25)
	var_Items.ItemBar(h,"C",5,18)
oG2antt.EndUpdate()

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/

OleObject oG2antt,rs,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 1994-08-03
	var_Chart.PaneWidth(false,256)
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 4096
	var_Chart.FirstWeekDay = 1
	var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Items.AllowCellValueToItemBar = true
oG2antt.Columns.Item(2).Def(18,1)
oG2antt.Columns.Item(4).Def(18,2)
oG2antt.ContinueColumnScroll = true
oG2antt.ScrollBySingleLine = true
oG2antt.Chart.AllowCreateBar = 0
oG2antt.AutoDrag = 4112 /*exAutoDragScrollOnShortTouch | exAutoDragScroll*/
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.UnitScale = 4096
	var_Chart.PaneWidth(false,0)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.DrawGridLines = -1
	var_Chart.AllowZoomOnFly = 24
	var_Chart.ResizeUnitScale = 65536
	var_Chart.ResizeUnitCount = 4
	var_Chart.Label(65536,"<font ;5><b><%h%><br><%AM/PM%></b></font><||>4<||>65536")
	var_Chart.ZoomOnFlyCaption = "<br><c><b><font ;12><%=%C0%>"
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"T1","T1")
	var_Items.AddBar(h,"Task",2001-01-11,2001-01-14,"T3","T3")
	h = var_Items.AddItem()
	var_Items.AddBar(h,"",2001-01-15,2001-01-15,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
	var_Items.SelectableItem(h,false)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_InsideZoomFormat,var_InsideZooms

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.UnitScale = 4096
	var_Chart.PaneWidth(false,0)
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2008-01-01
	var_InsideZoomFormat = var_Chart.DefaultInsideZoomFormat
		var_InsideZoomFormat.InsideLabel = "<%hh%>"
		var_InsideZoomFormat.InsideUnit = 65536
		var_InsideZoomFormat.InsideCount = 8
	var_Chart.AllowInsideZoom = true
	var_InsideZooms = var_Chart.InsideZooms
		var_InsideZooms.Add(2008-01-04)
	var_Chart.DrawGridLines = -1
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items,var_Print

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Tasks")
	var_Column = var_Columns.Add("Start")
		var_Column.Def(18,1)
		var_Column.Editor.EditType = 4
	var_Column1 = var_Columns.Add("End")
		var_Column1.Def(18,2)
		var_Column1.Editor.EditType = 4
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,196)
	var_Chart.LevelCount = 2
	var_Chart.ShowEmptyBars = 1
	var_Chart.FirstVisibleDate = 2009-01-01
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2009-01-02,2009-01-07)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2009-01-04,2009-01-09)
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
	var_Print.PrintExt = oG2antt.Object
	var_Print.CopyTo("c:/temp/xtest.pdf")
MessageBox("Information",string( "Look for C:\Temp\xtest.pdf file." ))
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items
any var_CopyTo

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
	var_Columns.Add("Tasks")
	var_Column = var_Columns.Add("Start")
		var_Column.Def(18,1)
		var_Column.Editor.EditType = 4
	var_Column1 = var_Columns.Add("End")
		var_Column1.Def(18,2)
		var_Column1.Editor.EditType = 4
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,196)
	var_Chart.LevelCount = 2
	var_Chart.ShowEmptyBars = 1
	var_Chart.FirstVisibleDate = 2009-01-01
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2009-01-02,2009-01-07)
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2009-01-04,2009-01-09)
var_CopyTo = oG2antt.CopyTo("c:/temp/xtest.pdf")
MessageBox("Information",string( "Look for C:\Temp\xtest.pdf file." ))
oG2antt.EndUpdate()

OleObject oG2antt,var_Column,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Date")
	var_Column.FormatColumn = "len(value) ? ( (longdate(date(value)) left 3) + ' ' + day(date(value)) + '/' + month(date(value)) + '/' + (year(date(value)) right 2) ) : '' )"
	var_Editor = var_Column.Editor
		var_Editor.EditType = 7
		var_Editor.Option(14,true)
var_Items = oG2antt.Items
	var_Items.AddItem(2012-05-12)
	var_Items.AddItem()
	var_Items.AddItem(2012-05-14)
oG2antt.EndUpdate()

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.CellValue(Item,2,var_Items.CellState(Item,0))
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Column,var_ConditionalFormat,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ShowFocusRect = false
oG2antt.SelBackMode = 1
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%2 != 0")
	var_ConditionalFormat.Bold = true
	var_ConditionalFormat.ForeColor = RGB(255,0,0)
	var_ConditionalFormat.ApplyTo = -1
var_Column = oG2antt.Columns.Add("")
	var_Column.Def(0,true)
	var_Column.Width = 16
	var_Column.AllowSizing = false
oG2antt.Columns.Add("Information")
oG2antt.Columns.Add("Hidden").Visible = false
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem(""),1,"This is a bit of text associated")
	h = var_Items.AddItem("")
	var_Items.CellValue(h,1,"This is a bit of text associated")
	var_Items.CellState(h,0,1)
	var_Items.CellValue(var_Items.AddItem(""),1,"This is a bit of text associated")
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.OnResizeControl = 129 /*exDisableSplitter | exResizeChart*/
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = 1
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2005-06-09
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 112
	var_Chart.HistogramHeight = 128
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
	var_Chart.PaneWidth(false,0)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-14,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-15,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-16,"")
oG2antt.EndUpdate()

OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAChABLMIQAAYAQGKIaBoAKBQAGaAoDDQOQ4QwAAxjAKUEwsACEIrjKCYVgOHYYRrIIEvZAAMIlSbCMoxcAsSQSf6YJBmKL4fiWMobRCMQyiLLMdwiGoYJ4hGgKChqI43RZNErURRkEwCgIA=")
	var_Appearance.Add(1,"CP:2 0 -4 0 4")
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Default")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"K1")
	var_Items.ItemBar(h,"K1",51,16777471)
	var_Items.AddBar(h,"Task",2001-01-09,2001-01-14,"K2")
	var_Items.ItemBar(h,"K2",51,33488896)
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = 1
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,40)
	var_Chart.FirstVisibleDate = 2005-06-09
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 112
	var_Chart.HistogramHeight = 128
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
		var_Bar.HistogramType = 0
		var_Bar.HistogramItems = 12
		var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-14,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-15,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-16,"")
oG2antt.Chart.MarkTimeZone("zone",2005-06-13,2005-06-14,15790320,";;;;histogram;1")
oG2antt.EndUpdate()

/*begin event MouseMove(integer  Button,integer  Shift,long  X,long  Y) - Occurs when the user moves the mouse.*/
/*
	OleObject var_Chart
	oG2antt = ole_1.Object
	var_Chart = oG2antt.Chart
		MessageBox("Information",string( "Value" ))
		MessageBox("Information",string( String(var_Chart.HistogramValue(var_Chart.DateFromPoint(-1,-1))) ))
		MessageBox("Information",string( "MIN" ))
		MessageBox("Information",string( String(var_Chart.HistogramValue("min")) ))
		MessageBox("Information",string( "MAX" ))
		MessageBox("Information",string( String(var_Chart.HistogramValue("max")) ))
*/
/*end event MouseMove*/

OleObject oG2antt,var_Bar,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = 1
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,40)
	var_Chart.FirstVisibleDate = 2005-06-09
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 112
	var_Chart.HistogramHeight = 128
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
		var_Bar.HistogramType = 0
		var_Bar.HistogramItems = 12
		var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-10,2005-06-14,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-11,2005-06-15,"")
	var_Items.AddBar(var_Items.AddItem("Task"),"Task",2005-06-12,2005-06-16,"")
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstWeekDay = 1
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,40)
	var_Chart.FirstVisibleDate = 2005-06-09
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 112
	var_Chart.HistogramHeight = 128
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
		var_Bar.HistogramType = 0
		var_Bar.HistogramItems = 12
		var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
	var_Chart.Level(1).Label = "<font ;3><%d%>"
	var_Chart.UnitWidth = 9
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-06-10,2005-06-14,"")
	var_Items.ItemBar(h,"",21,"weekday(value) in (0,6) ? 0.25 : 2")
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-06-18,2005-06-21,"")
	var_Items.ItemBar(h,"",21,"weekday(value) = 1 ? 2 : 1")
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-06-27,2005-07-09,"")
	var_Items.ItemBar(h,"",21,"month (value) = 7 ? 1 : 0")
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-06-27,2005-07-05,"")
	var_Items.ItemBar(h,"",21,"(month(value)=month(value+1)) ? 1 : 0")
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-06-22,2005-06-26,"")
	var_Items.ItemBar(h,"",21,"int(value-start) ? 1 : 2")
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-07-10,2005-07-14,"")
	var_Items.ItemBar(h,"",21,"(int(value-start) and int(end-value) != 0 ) ? 1 : 2")
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-07-15,2005-07-22,"")
	var_Items.ItemBar(h,"",21,"(int(value-start)+1) mod 2 ? 1 : 0")
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.PaneWidth(false,40)
	var_Chart.FirstVisibleDate = 2005-06-09
	var_Chart.HistogramVisible = true
	var_Chart.HistogramView = 112
	var_Chart.HistogramHeight = 128
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
		var_Bar.HistogramType = 0
		var_Bar.HistogramItems = 12
		var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2005-06-10,2005-06-21,"")
	var_Items.ItemBar(h,"",21,"weekday(value) in (0,6) ? 0 : 2")
oG2antt.EndUpdate()

/*begin event FocusChanged() - Occurs when a cell gets the focus.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.CellBackColor(var_Items.FocusItem,oG2antt.FocusColumnIndex,RGB(255,0,0))
*/
/*end event FocusChanged*/

OleObject oG2antt,var_Columns,var_Items,var_Items1

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.DrawGridLines = -2
var_Columns = oG2antt.Columns
	var_Columns.Add("Column1")
	var_Columns.Add("Column2")
var_Items = oG2antt.Items
	var_Items.CellValue(var_Items.AddItem("Cell 1.1"),1,"Cell 1.2")
	var_Items.CellValue(var_Items.AddItem("Cell 2.1"),1,"Cell 2.2")
var_Items1 = oG2antt.Items
	var_Items1.SelectItem(var_Items1.ItemByIndex(1),true)
oG2antt.FocusColumnIndex = 1
oG2antt.EndUpdate()

/*begin event FocusChanged() - Occurs when a cell gets the focus.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.CellBackColor(var_Items.FocusItem,oG2antt.FocusColumnIndex,RGB(255,0,0))
*/
/*end event FocusChanged*/

OleObject oG2antt,var_Column,var_Columns,var_Items,var_Items1
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.DrawGridLines = -2
oG2antt.DefaultItemHeight = 36
var_Columns = oG2antt.Columns
	var_Columns.Add("Column1").Visible = false
	var_Columns.Add("Column2").Visible = false
	var_Columns.Add("Column3").Visible = false
	var_Column = var_Columns.Add("FormatLevel")
		var_Column.FormatLevel = "(0/1),2"
		var_Column.Def(32,var_Column.FormatLevel)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Cell 1.1")
	var_Items.CellValue(h,1,"Cell 1.2")
	var_Items.CellValue(h,2,"Cell 1.3")
	h = var_Items.AddItem("Cell 2.1")
	var_Items.CellValue(h,1,"Cell 2.2")
	var_Items.CellValue(h,2,"Cell 2.3")
var_Items1 = oG2antt.Items
	var_Items1.SelectItem(var_Items1.ItemByIndex(1),true)
oG2antt.FocusColumnIndex = 2
oG2antt.EndUpdate()

/*begin event DblClick(integer  Shift,long  X,long  Y) - Occurs when the user dblclk the left mouse button over an object.*/
/*
	any item,key
	oG2antt = ole_1.Object
	item = oG2antt.ItemFromPoint(-1,-1,c,hit)
	key = oG2antt.Chart.BarFromPoint(-1,-1)
	MessageBox("Information",string( String(oG2antt.Items.ItemBar(item,key,17)) ))
*/
/*end event DblClick*/

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,48)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"")
	var_Items.ItemBar(h,"",17,"this is a bit of extra data associated with task 1")
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"")
	var_Items.ItemBar(h,"",17,"this is a bit of extra data associated with task 2")
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Level,var_Level1

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.UnitWidth = 24
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,0)
	var_Chart.LevelCount = 2
	var_Chart.FirstWeekDay = 1
	var_Level = var_Chart.Level(0)
		var_Level.Alignment = 1
		var_Level.Label = "<b><Font Tahoma;7><%m3%>, <%yyyy%></b><b>, <Font Tahoma;7>Wk <%ww%>"
		var_Level.Unit = 256
		var_Level.DrawGridLines = true
	var_Level1 = var_Chart.Level(1)
		var_Level1.Alignment = 1
		var_Level1.Label = "<Font Tahoma;7><%d%>"
		var_Level1.Unit = 4096
	var_Chart.DrawGridLines = -1
oG2antt.EndUpdate()

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Milestone",2001-01-02,2001-01-02,"MKey")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-07)

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxfIMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4pSrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DBthsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCAHQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAlEkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQoWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzCSSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGA" &
 +"UgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCoSoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCBcGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEBAAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEHHKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgDgwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUAcMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" &
 +"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdwlA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQhajUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC")
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,0)
	var_Chart.LevelCount = 2
	var_Chart.OverviewVisible = 2
	var_Chart.AllowOverviewZoom = 1
	var_Chart.Label(16777216,"")
	var_Chart.Label(0,"")
oG2antt.Chart.OverviewSelBackColor = 33554176 /*0x1ffff00*/

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2000-12-25
	var_Chart.PaneWidth(false,196)
var_Column = oG2antt.Columns.Add("Start")
	var_Column.Def(18,1)
	var_Column.Def(19,"K1")
	var_Column.FormatColumn = "(0 array (0:=(shortdateF(value) split `/`))) + `-` + (1 array (=:0) ) + `-` + (2 array (=:0) )"
var_Column1 = oG2antt.Columns.Add("End")
	var_Column1.Def(18,2)
	var_Column1.Def(19,"K1")
	var_Column1.FormatColumn = "shortdateF(value) replace `/` with `-`"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem(),"Task",2001-01-01,2001-01-05,"K1")
	var_Items.AddBar(var_Items.AddItem(),"Task",2001-01-02,2001-01-06,"K1")
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = 2000-12-25
	var_Chart.PaneWidth(false,196)
var_Column = oG2antt.Columns.Add("Start")
	var_Column.Def(18,1)
	var_Column.Def(19,"K1")
	var_Column.FormatColumn = "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
var_Column1 = oG2antt.Columns.Add("End")
	var_Column1.Def(18,2)
	var_Column1.Def(19,"K1")
	var_Column1.FormatColumn = "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem(),"Task",2001-01-01,2001-01-05,"K1")
	var_Items.AddBar(var_Items.AddItem(),"Task",2001-01-02,2001-01-06,"K1")
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Bar1,var_Bar2,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2000-12-29
oG2antt.Chart.PaneWidth(false,48)
var_Bar = oG2antt.Chart.Bars.Item("Task")
	var_Bar.Pattern = 1
	var_Bar.Height = 17
var_Bar1 = oG2antt.Chart.Bars.Item("Progress")
	var_Bar1.Pattern = 1
	var_Bar1.Height = 17
	var_Bar1.Shape = 1
	var_Bar1.Color = RGB(0,0,255)
var_Bar2 = oG2antt.Chart.Bars.Add("Task%Progress")
	var_Bar2.Pattern = 1
	var_Bar2.Height = 17
	var_Bar2.Shortcut = "Percent"
oG2antt.DefaultItemHeight = 21
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-05,"")
	var_Items.ItemBar(h,"",33,4112616)
	var_Items.ItemBar(h,"",3,"<fgcolor=FFFFFF><sha 0;;0>Pause")
	var_Items.AddBar(h,"Task",2001-01-09,2001-01-12,"white")
	var_Items.ItemBar(h,"white",33,4112616)
	var_Items.ItemBar(h,"white",3,"<fgcolor=FFFFFF>Pause")
	h = var_Items.AddItem("Task 2")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-04,"")
	var_Items.ItemBar(h,"",33,2017557)
	var_Items.ItemBar(h,"",3,"<fgcolor=FFFFFF><sha 0;;0>Production")
	var_Items.AddBar(h,"Task",2001-01-10,2001-01-11,"white")
	var_Items.ItemBar(h,"white",33,2017557)
	var_Items.ItemBar(h,"white",3,"<fgcolor=FFFFFF>Production")
	h = var_Items.AddItem("Task 3")
	var_Items.AddBar(h,"Percent",2001-01-03,2001-01-04,"")
	var_Items.ItemBar(h,"",12,0.5)
	var_Items.ItemBar(h,"",33,2017557)
	var_Items.ItemBar(h,"",3,"<fgcolor=FFFFFF><sha 0;;0>Pausing")
	var_Items.AddBar(h,"Percent",2001-01-10,2001-01-11,"white")
	var_Items.ItemBar(h,"white",12,0.5)
	var_Items.ItemBar(h,"white",33,2017557)
	var_Items.ItemBar(h,"white",3,"<fgcolor=FFFFFF>Pausing")
	h = var_Items.AddItem("Task 4")
	var_Items.AddBar(h,"Task",2001-01-03,2001-01-04,"")
	var_Items.ItemBar(h,"",33,8421504)
	var_Items.ItemBar(h,"",3,"<fgcolor=FFFFFF><sha 0;;0>Planned downtime")
	var_Items.AddBar(h,"Task",2001-01-10,2001-01-11,"white")
	var_Items.ItemBar(h,"white",33,8421504)
	var_Items.ItemBar(h,"white",3,"<fgcolor=FFFFFF>Planned downtime")
oG2antt.EndUpdate()

OleObject oG2antt,var_Column,var_Column1,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 9472 /*exShowExclude | exShowFocusItem | exShowCheckBox*/
var_Items = oG2antt.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
	var_Items.AddItem("Item 4")
var_Column1 = oG2antt.Columns.Item(0)
	var_Column1.FilterType = 752 /*exFilterExclude | exFilter*/
	var_Column1.Filter = "Item 1|Item 4"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

/*begin event BeforeExpandItem(long  Item,any  Cancel) - Fired before an item is about to be expanded (collapsed).*/
/*
	oG2antt = ole_1.Object
	Cancel = true
*/
/*end event BeforeExpandItem*/

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,hR

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = true
oG2antt.ExpandOnDblClick = false
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.AllowLinkBars = false
	var_Chart.DrawGridLines = -1
	var_Chart.FirstVisibleDate = 2000-12-29
	var_Chart.HistogramVisible = true
	var_Chart.HistogramHeight = 167
	var_Chart.PaneWidth(false,128)
	var_Chart.HistogramView = 1040 /*exHistogramNoGrouping | exHistogramUnlockedItems*/
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramType = 256
		var_Bar.HistogramItems = 6
		var_Bar.HistogramPattern = 1
		var_Bar.HistogramItems = -40000
		var_Bar.HistogramCriticalValue = 100000
		var_Bar.HistogramRulerLinesColor = RGB(128,128,128)
		var_Bar.HistogramCumulativeColors = 3
	var_Chart.ShowNonworkingDates = false
oG2antt.Columns.Add("Costs").Visible = false
oG2antt.Columns.Add("Tasks").Visible = true
var_Items = oG2antt.Items
	h = var_Items.AddItem("Estimated")
	var_Items.CellValue(h,1,"Task 1")
	var_Items.AddBar(h,"Task",2001-01-01,2001-01-10)
	var_Items.ItemBar(h,"",21,8000)
	hR = var_Items.InsertItem(h,,"Actual")
	var_Items.AddBar(hR,"Task",2001-01-01,2001-01-10)
	var_Items.ItemBar(hR,"",21,9000)
	var_Items.GroupBars(h,"",true,hR,"",true)
	var_Items.GroupBars(h,"",false,hR,"",false)
	hR = var_Items.InsertItem(h,,"Cost")
	var_Items.AddBar(hR,"Task",2001-01-01,2001-01-10)
	var_Items.ItemBar(hR,"",21,200)
	var_Items.GroupBars(h,"",true,hR,"",true)
	var_Items.GroupBars(h,"",false,hR,"",false)
	h = var_Items.AddItem("Estimated")
	var_Items.CellValue(h,1,"Task 2")
	var_Items.AddBar(h,"Task",2001-01-09,2001-01-15)
	var_Items.ItemBar(h,"",21,7000)
	hR = var_Items.InsertItem(h,,"Actual")
	var_Items.AddBar(hR,"Task",2001-01-09,2001-01-15)
	var_Items.ItemBar(hR,"",21,8000)
	var_Items.GroupBars(h,"",true,hR,"",true)
	var_Items.GroupBars(h,"",false,hR,"",false)
	hR = var_Items.InsertItem(h,,"Cost")
	var_Items.AddBar(hR,"Task",2001-01-09,2001-01-15)
	var_Items.ItemBar(hR,"",21,150)
	var_Items.GroupBars(h,"",true,hR,"",true)
	var_Items.GroupBars(h,"",false,hR,"",false)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2000-12-25
	var_Chart.PaneWidth(false,48)
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","exBarHAlignCaption = 0")
	var_Items.ItemBar(h,"K",4,0)
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","exBarHAlignCaption = 1")
	var_Items.ItemBar(h,"K",4,1)
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","exBarHAlignCaption = 2")
	var_Items.ItemBar(h,"K",4,2)
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Clip 3")
	var_Items.ItemBar(h,"K",4,3)
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Clip 4")
	var_Items.ItemBar(h,"K",4,4)
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Clip 5")
	var_Items.ItemBar(h,"K",4,5)
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Outside Left 16")
	var_Items.ItemBar(h,"K",4,16)
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Outside Right 18")
	var_Items.ItemBar(h,"K",4,18)
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"K","Outside Center 17")
	var_Items.ItemBar(h,"K",4,17)
oG2antt.EndUpdate()

OleObject oG2antt,var_Column,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Background(26,RGB(255,255,255))
var_Column = oG2antt.Columns.Add("Items")
	var_Column.DisplayFilterButton = true
	var_Column.DisplayFilterPattern = false
	var_Column.FilterList = 1315 /*exShowFocusItem | exShowCheckBox | exSortItemsAsc | exLeafItems*/
var_Items = oG2antt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Column2,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.DefaultItemHeight = 36
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("C1")
		var_Column.Def(0,true)
		var_Column.Width = 18
		var_Column.AllowSizing = false
	var_Column1 = var_Columns.Add("C2")
		var_Column1.Def(0,true)
		var_Column1.Width = 18
	var_Columns.Add("Column1").Visible = false
	var_Columns.Add("Column2").Visible = false
	var_Columns.Add("Column3").Visible = false
	var_Column2 = var_Columns.Add("FormatLevel")
		var_Column2.FormatLevel = "18;" + CHAR(34) + "Info" + CHAR(34) + "[a=17]/(2/3,4)"
		var_Column2.Def(32,"2/3,4")
var_Chart = oG2antt.Chart
	var_Chart.DrawGridLines = -1
	var_Chart.FirstVisibleDate = 2014-06-22
var_Items = oG2antt.Items
	h = var_Items.AddItem("Cell 1.1")
	var_Items.CellValue(h,1,"Cell 1.2")
	var_Items.CellValue(h,2,"Cell 1.3")
	var_Items.AddBar(h,"Task",2014-06-23,2014-06-25)
	h = var_Items.AddItem("Cell 2.1")
	var_Items.CellValue(h,1,"Cell 2.2")
	var_Items.CellValue(h,2,"Cell 2.3")
	var_Items.AddBar(h,"Task",2014-06-26,2014-06-28)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Column,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
oG2antt.DefaultItemHeight = 36
var_Columns = oG2antt.Columns
	var_Columns.Add("Column1").Visible = false
	var_Columns.Add("Column2").Visible = false
	var_Columns.Add("Column3").Visible = false
	var_Column = var_Columns.Add("FormatLevel")
		var_Column.FormatLevel = "(0/1),2"
		var_Column.Def(32,var_Column.FormatLevel)
var_Chart = oG2antt.Chart
	var_Chart.DrawGridLines = -1
	var_Chart.FirstVisibleDate = 2014-06-22
var_Items = oG2antt.Items
	h = var_Items.AddItem("Cell 1.1")
	var_Items.CellValue(h,1,"Cell 1.2")
	var_Items.CellValue(h,2,"Cell 1.3")
	var_Items.AddBar(h,"Task",2014-06-23,2014-06-25)
	h = var_Items.AddItem("Cell 2.1")
	var_Items.CellValue(h,1,"Cell 2.2")
	var_Items.CellValue(h,2,"Cell 2.3")
	var_Items.AddBar(h,"Task",2014-06-26,2014-06-28)
oG2antt.EndUpdate()

OleObject oG2antt,var_Chart,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.LevelCount = 2
	var_Chart.HistogramVisible = true
	var_Chart.HistogramHeight = 32
	var_Chart.HistogramView = 128
	var_Chart.Bars.Item("Task").HistogramPattern = 6
var_Column = oG2antt.Columns.Add("Column")
	var_Column.DisplayFilterButton = true
	var_Column.Filter = "Item 1"
	var_Column.FilterType = 240
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-04)
	var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-03,2001-01-07)
oG2antt.ApplyFilter()
oG2antt.EndUpdate()

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/

/*begin event MouseMove(integer  Button,integer  Shift,long  X,long  Y) - Occurs when the user moves the mouse.*/
/*
	oG2antt = ole_1.Object
	oG2antt.ShowToolTip("<font ;6><sha ;;0><off -4>Tip</off></sha></font> If the cursor hovers bars, click and wait for a second to start scrolling.")
*/
/*end event MouseMove*/

OleObject oG2antt,rs,var_Chart

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
	var_Chart.AllowCreateBar = 0
	var_Chart.FirstVisibleDate = 1994-08-03
	var_Chart.PaneWidth(false,256)
	var_Chart.LevelCount = 2
	var_Chart.UnitScale = 4096
	var_Chart.FirstWeekDay = 1
	var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.AutoDrag = 16
oG2antt.ScrollWidth = 4
oG2antt.ScrollHeight = 4
oG2antt.Background(384,RGB(192,192,192))
oG2antt.Background(392,RGB(192,192,192))
oG2antt.Background(404,RGB(224,224,224))
oG2antt.Background(388,RGB(128,128,128))
oG2antt.Background(276,RGB(224,224,224))
oG2antt.Background(264,RGB(192,192,192))
oG2antt.Background(260,RGB(128,128,128))
oG2antt.Background(256,RGB(192,192,192))
oG2antt.ScrollButtonWidth = 0
oG2antt.ScrollButtonHeight = 0
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h1

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Effort")
	var_Column.Def(18,21)
	var_Column.Editor.EditType = 4
var_Chart = oG2antt.Chart
	var_Chart.LevelCount = 2
	var_Chart.NonworkingDays = 0
	var_Chart.PaneWidth(false,96)
	var_Chart.FirstVisibleDate = 2005-06-20
	var_Chart.HistogramVisible = true
	var_Chart.HistogramHeight = 128
	var_Chart.HistogramView = 112
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramPattern = var_Bar.Pattern
		var_Bar.HistogramType = 0
		var_Bar.HistogramCriticalValue = 3
		var_Bar.HistogramItems = -7
		var_Bar.HistogramGridLinesColor = RGB(192,192,192)
		var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",2005-06-21,2005-06-23)
	var_Items.CellValue(h1,1,4)
	h1 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h1,"Task",2005-06-24,2005-06-26)
	var_Items.CellValue(h1,1,3)
	h1 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h1,"Task",2005-06-27,2005-06-29)
	var_Items.CellValue(h1,1,2)
	h1 = var_Items.AddItem("Task 4")
	var_Items.AddBar(h1,"Task",2005-06-30,2005-07-02)
	var_Items.CellValue(h1,1,1)
oG2antt.EndUpdate()

OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
	var_Columns.Add("First")
	var_Columns.Add("Second")
	var_Columns.Add("Third")
oG2antt.SortBarVisible = true
oG2antt.SingleSort = false
oG2antt.AllowGroupBy = true
oG2antt.Layout = "SingleSort = " + CHAR(34) + "C0:1" + CHAR(34) + ";MultipleSort = " + CHAR(34) + "C1:2 C2:1" + CHAR(34) + ""

OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
	var_Columns.Add("First")
	var_Columns.Add("Second")
	var_Columns.Add("Third")
oG2antt.SortBarVisible = true
oG2antt.SingleSort = false
oG2antt.Layout = "SingleSort = " + CHAR(34) + "C0:1" + CHAR(34) + ""

OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Column1,var_Columns,var_InsideZoomFormat,var_Items
any h1,h2

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Columns.Add("Tasks")
	var_Column = var_Columns.Add("Working")
		var_Column.Def(18,258)
		var_Column.Def(19,"A")
		var_Column.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
	var_Column1 = var_Columns.Add("NonWorking")
		var_Column1.Def(18,259)
		var_Column1.Def(19,"A")
		var_Column1.FormatColumn = "(0:=round(value*24)) != 0 ? =:0 : ''"
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,78)
	var_Chart.AllowCreateBar = 1
	var_Chart.FirstVisibleDate = 2005-06-20
	var_Chart.DrawLevelSeparator = false
	var_Chart.LevelCount = 3
	var_Chart.Level(1).DrawGridLines = false
	var_Chart.AllowInsideZoom = true
	var_Chart.DrawDateTicker = true
	var_Chart.DateTickerLabel = "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
	var_Chart.MarkSelectDateColor = 2147481838 /*0x7ffff8ee*/
	var_InsideZoomFormat = var_Chart.DefaultInsideZoomFormat
		var_InsideZoomFormat.OwnerLabel = "<%mmm%> <%d%>"
		var_InsideZoomFormat.BackColor = RGB(238,248,255)
		var_InsideZoomFormat.BackColorChart = var_InsideZoomFormat.BackColor
		var_InsideZoomFormat.InsideCount = 4
		var_InsideZoomFormat.InsideLabel = "<b><%hh%></b>"
	var_Chart.InsideZooms.Add(2005-06-22)
	var_Chart.DrawGridLines = 2
	var_Chart.Bars.Item("Split").Color = RGB(255,0,0)
	var_Bar = var_Chart.Bars.Add("Task:Split")
		var_Bar.Color = RGB(255,0,0)
		var_Bar.Pattern = 6
		var_Bar.Shortcut = "Task"
var_Items = oG2antt.Items
	var_Items.AllowCellValueToItemBar = true
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",DateTime(2005-06-22,08:00:00),2005-06-28,"A")
	var_Items.ItemBar(h1,"A",20,true)
	var_Items.ItemNonworkingUnits(h1,false,"weekday(value) in (1,2)")
	var_Items.ItemNonworkingUnits(h1,true,"weekday(value) in (1,2) or (hour(value)<8 or hour(value)>=16 )")
	h2 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h2,"Task",DateTime(2005-06-22,04:00:00),DateTime(2005-06-29,12:00:00),"A")
	var_Items.ItemBar(h2,"A",20,true)
	var_Items.ItemNonworkingUnits(h2,false,"weekday(value) in (1,2)")
	var_Items.ItemNonworkingUnits(h2,true,"weekday(value) in (1, 2) or (hour(value)<4 or hour(value)>=12 )")
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
	var_Chart.FirstVisibleDate = 2001-01-01
	var_Chart.PaneWidth(false,48)
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.Height = 15
		var_Bar.Pattern = 1
		var_Bar.Def(8,16777215)
var_Items = oG2antt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-06,"K1","bar A")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-06,"K2","bar B")
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-06,"K3","bar C")
oG2antt.EndUpdate()

/*begin event AddItem(long  Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
	OleObject var_Items
	oG2antt = ole_1.Object
	var_Items = oG2antt.Items
		var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/

OleObject oG2antt,rs,var_Items,var_Print

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Chart.FirstVisibleDate = 1994-08-04
var_Items = oG2antt.Items
	var_Items.SelectItem(var_Items.ItemByIndex(0),true)
	var_Items.SelectItem(var_Items.ItemByIndex(2),true)
	var_Items.SelectItem(var_Items.ItemByIndex(4),true)
oG2antt.EndUpdate()
var_Print = CREATE OLEObject
var_Print.ConnectToNewObject("Exontrol.Print")
	var_Print.Options = "Print = Selection"
	var_Print.PrintExt = oG2antt.Object
	var_Print.Preview()

OleObject oG2antt,var_Columns

oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
var_Columns = oG2antt.Columns
	var_Columns.Add("City").Visible = false
	var_Columns.Add("Start").Visible = false
	var_Columns.Add("End").Visible = false
oG2antt.ColumnsFloatBarVisible = true
oG2antt.ColumnsFloatBarSortOrder = 1

OleObject oG2antt,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
var_Column = oG2antt.Columns.Add("Padding")
	var_Column.Def(0,true)
	var_Column.Def(16,false)
	var_Column.Def(48,6)
	var_Column.Def(49,6)
	var_Column.Def(50,6)
	var_Column.Def(51,6)
var_Items = oG2antt.Items
	var_Items.AddItem("padding")
	var_Items.AddItem("padding")
oG2antt.EndUpdate()

OleObject oG2antt,var_Columns,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2")
	var_Columns.Add("Column 3")
var_Items = oG2antt.Items
	h = var_Items.AddItem("SubItem 1.1")
	var_Items.CellValue(h,1,"SubItem 1.2")
	var_Items.CellValue(h,2,"SubItem 1.3")
	h = var_Items.AddItem("SubItem 2.1")
	var_Items.CellValue(h,1,"SubItem 2.2")
	var_Items.CellValue(h,2,"SubItem 2.3")
oG2antt.EndUpdate()

OleObject oG2antt,var_Items
any h,hC

oG2antt = ole_1.Object
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Root")
	hC = var_Items.InsertItem(h,,"Child 1")
	var_Items.ItemBackColor(hC,RGB(255,0,0))
	oG2antt.Chart.ItemBackColor(hC,RGB(0,255,0))
	var_Items.InsertItem(h,,"Child 2")
	var_Items.ExpandItem(h,true)

OleObject oG2antt,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,64)
oG2antt.Debug = true
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAAChABL8IQAAYAQGKIaBwAKBQAGaAoDDQNgyQwAAxwdBMKgBBCLIxhEYobgmGIaRjHcQjEKoSxHEqIRpGCRoJiqLIZAJIEZRZAcaQvGSQYRASCRNDEOA0TDAY4jPD4aQiGIbRjjeL5YjiNo2UxTNRQCEB")
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task 1")
	var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A")
	var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"B1")
	var_Items.AddBar(h,"Task",2001-01-08,2001-01-17,"B2")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"K3")
	var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2001-01-02,2001-01-04,"K4")
	var_Items.ItemBar(0,"<*>",33,255)
	var_Items.ItemBar(0,"<*>",51,16777216)
oG2antt.EndUpdate()

OleObject oG2antt,var_Column,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\sample\EBN\hoverinsert.ebn")
oG2antt.Background(19,16777216 /*0x1000000*/)
var_Column = oG2antt.Columns.Add("Check")
	var_Column.Def(48,2)
	var_Column.Def(0,true)
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.DefaultItemHeight = 22
oG2antt.ShowFocusRect = true
var_Items = oG2antt.Items
	var_Items.AddItem("")
	var_Items.AddItem("")
oG2antt.EndUpdate()

OleObject oG2antt,var_Editor,var_Editor1,var_Editor2,var_Editor3,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Editor = oG2antt.Columns.Add("Column/Cell-Same").Editor
	var_Editor.EditType = 3
	var_Editor.AddItem(0,"Zero")
	var_Editor.AddItem(1,"One")
	var_Editor.AddItem(2,"Two")
var_Editor1 = oG2antt.Columns.Add("Column/Cell-Different").Editor
	var_Editor1.EditType = 1
var_Items = oG2antt.Items
	var_Items.AddItem()
	h = var_Items.AddItem(0)
	var_Editor2 = var_Items.CellEditor(h,1)
		var_Editor2.EditType = 3
		var_Editor2.AddItem(3,"Three")
		var_Editor2.AddItem(4,"Four")
	var_Items.CellValue(h,1,3)
	var_Items.AddItem()
	h = var_Items.AddItem(0)
	var_Editor3 = var_Items.CellEditor(h,1)
		var_Editor3.EditType = 6
		var_Editor3.AddItem(1,"Single")
		var_Editor3.AddItem(2,"Double")
	var_Items.CellValue(h,1,3)
oG2antt.EndUpdate()

OleObject oG2antt,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.DrawGridLines = -2
var_Editor = oG2antt.Columns.Add("Fonts").Editor
	var_Editor.EditType = 10
	var_Editor.ClearItems()
	var_Editor.AddItem(0,"Calibri")
	var_Editor.AddItem(1,"Arial")
	var_Editor.AddItem(2,"Rockwell")
	var_Editor.AddItem(3,"Tahoma")
	var_Editor.SortItems(true)
	var_Editor.DropDownRows = 4
var_Items = oG2antt.Items
	var_Items.AddItem("Tahoma")
oG2antt.EndUpdate()

OleObject oG2antt,var_Bar,var_Chart,var_Items
any h

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,40)
	var_Chart.FirstVisibleDate = 2005-06-20
	var_Chart.HistogramVisible = true
	var_Chart.HistogramHeight = 64
	var_Chart.HistogramView = 112
	var_Chart.LevelCount = 3
	var_Chart.NonworkingHours = 16253183
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.HistogramType = 1
		var_Bar.HistogramPattern = var_Bar.Pattern
	var_Chart.ShowNonworkingDates = false
	var_Chart.ShowNonworkingUnits = false
	var_Chart.ShowNonworkingHours = false
	var_Chart.DrawGridLines = -1
	var_Chart.UnitScale = 65536
	var_Chart.UnitWidth = 4
	var_Chart.ResizeUnitScale = var_Chart.UnitScale
var_Items = oG2antt.Items
	h = var_Items.AddItem("Task A")
	var_Items.AddBar(h,"Task",DateTime(2005-06-23,11:00:00),DateTime(2005-06-23,12:00:00))
	var_Items.ItemBar(h,"",21,"0.0416666")
	var_Items.ItemBar(h,"",20,true)
	h = var_Items.AddItem("Task B")
	var_Items.AddBar(h,"Task",DateTime(2005-06-23,12:00:00),DateTime(2005-06-23,16:00:00))
	var_Items.ItemBar(h,"",21,"0.0416666")
	var_Items.ItemBar(h,"",20,true)
oG2antt.EndUpdate()

/*begin event AnchorClick(string  AnchorID,string  Options) - Occurs when an anchor element is clicked.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( String(AnchorID) ))
	MessageBox("Information",string( String(Options) ))
*/
/*end event AnchorClick*/

OleObject oG2antt,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
	var_Columns.Add("Car").Def(17,1)
var_Items = oG2antt.Items
	var_Items.AddItem("<a mazda_1;options for 1>Mazda <b>1</b></a>")
	var_Items.AddItem("<a mazda_2;options for 2>Mazda <b>2</b></a>")
	var_Items.AddItem("<a mazda_3;options for 3a>Mazda <b>3.a</b></a>")
	var_Items.AddItem("<a mazda_3;options for 3b>Mazda <b>3.b</b></a>")
oG2antt.EndUpdate()

/*begin event CellStateChanged(long  Item,long  ColIndex) - Fired after cell's state has been changed.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "CheckBox Changed:" ))
	MessageBox("Information",string( String(oG2antt.Items.CellState(Item,ColIndex)) ))
*/
/*end event CellStateChanged*/

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Check").Def(0,true)
var_Items = oG2antt.Items
	var_Items.CellState(var_Items.AddItem("Check 1"),0,0)
	var_Items.CellState(var_Items.AddItem("Check 2"),0,1)
	var_Items.CellState(var_Items.AddItem("Check 3"),0,0)
	var_Items.CellState(var_Items.AddItem("Check 4"),0,1)
oG2antt.EndUpdate()

/*begin event Change(long  Item,long  ColIndex,any  NewValue) - Occurs when the user changes the cell's content.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "CheckBox Changed:" ))
	MessageBox("Information",string( String(NewValue) ))
*/
/*end event Change*/

OleObject oG2antt,var_Column,var_Editor,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Column = oG2antt.Columns.Add("Check")
	var_Editor = var_Column.Editor
		var_Editor.EditType = 19
		var_Editor.Option(17,1)
var_Items = oG2antt.Items
	var_Items.AddItem(0)
	var_Items.AddItem(1)
	var_Items.AddItem(0)
	var_Items.AddItem(1)
oG2antt.EndUpdate()

OleObject oG2antt,var_Appearance,var_Editor

oG2antt = ole_1.Object
var_Appearance = oG2antt.VisualAppearance
	var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
	var_Appearance.Add(2,"c:\exontrol\images\pushed.ebn")
var_Editor = oG2antt.Columns.Add("Progress").Editor
	var_Editor.EditType = 13
	var_Editor.Option(11,16777216)
	var_Editor.Option(13,33554432)
oG2antt.Items.AddItem(33)

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78egBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRxLC8Mw3BDvYDkOAABAIgI=")
oG2antt.SelBackColor = 33554430 /*0x1fffffe*/
oG2antt.SelForeColor = RGB(0,0,0)
oG2antt.SelBackColor = 16777216 /*0x1000000*/
oG2antt.ShowFocusRect = false
oG2antt.Columns.Add("Items")
oG2antt.DefaultItemHeight = 22
var_Items = oG2antt.Items
	var_Items.ItemBackColor(var_Items.AddItem("red"),RGB(255,0,0))
	var_Items.ItemBackColor(var_Items.AddItem("blue"),RGB(0,0,255))
	var_Items.ItemBackColor(var_Items.AddItem("green"),RGB(0,255,0))
oG2antt.EndUpdate()

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
oG2antt.DefaultItemHeight = 22
oG2antt.ShowFocusRect = false
oG2antt.Columns.Add("Items")
var_Items = oG2antt.Items
	var_Items.ItemBackColor(var_Items.AddItem("red"),RGB(255,0,0))
	var_Items.ItemBackColor(var_Items.AddItem("blue"),RGB(0,0,255))
	var_Items.ItemBackColor(var_Items.AddItem("green"),RGB(0,255,0))
oG2antt.EndUpdate()

OleObject oG2antt,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.DefaultItemHeight = 22
oG2antt.ShowFocusRect = true
oG2antt.Columns.Add("Items")
var_Items = oG2antt.Items
	var_Items.ItemBackColor(var_Items.AddItem("red"),RGB(255,0,0))
	var_Items.ItemBackColor(var_Items.AddItem("blue"),RGB(0,0,255))
	var_Items.ItemBackColor(var_Items.AddItem("green"),RGB(0,255,0))
oG2antt.EndUpdate()

/*begin event BeforeExpandItem(long  Item,any  Cancel) - Fired before an item is about to be expanded (collapsed).*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "BeforeExpandItem" ))
	MessageBox("Information",string( String(Item) ))
	oG2antt.Items.InsertItem(Item,,"new child")
*/
/*end event BeforeExpandItem*/

OleObject oG2antt,var_Column,var_Columns,var_Items

oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
	var_Column = var_Columns.Add("Items")
		var_Column.DisplayFilterButton = true
		var_Column.FilterList = 4
var_Items = oG2antt.Items
	var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 1"),true)
	var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 2"),true)
oG2antt.EndUpdate()

/*begin event OverviewZoom() - Occurs once the user selects a new time scale unit in the overview zoom area.*/
/*
	oG2antt = ole_1.Object
	MessageBox("Information",string( "UnitScale: " ))
	MessageBox("Information",string( String(oG2antt.Chart.UnitScale) ))
*/
/*end event OverviewZoom*/

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.LevelCount = 2
	var_Chart.OverviewVisible = 2
	var_Chart.AllowOverviewZoom = 1

OleObject oG2antt,var_Columns,var_Editor

oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
	var_Editor = var_Columns.Add("SpinType between 5 and 150").Editor
		var_Editor.EditType = 20
		var_Editor.Numeric = -1
		var_Editor.Option(41,0)
		var_Editor.Option(43,5)
		var_Editor.Option(44,150)
oG2antt.Items.AddItem(50)

OleObject oG2antt,var_Chart

oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
	var_Chart.PaneWidth(false,128)
	var_Chart.LevelCount = 2
	var_Chart.OverviewVisible = 2
	var_Chart.AllowOverviewZoom = 1
	var_Chart.OverviewZoomCaption = "Aņo|||Mes|||Dia|||"
	var_Chart.Label(1,"")
	var_Chart.Label(2,"")
	var_Chart.Label(17,"")
	var_Chart.Label(256,"")
	var_Chart.Label(65536,"")
	var_Chart.Label(1048576,"")
	var_Chart.Label(16777216,"")